﻿Imports ModuloEstoque
Imports ModuloVendas
Imports ModuloFinanceiro


Public Class PessoasUC

#Region "Cargo"
    Private Sub TSBCargo_Click(sender As System.Object, e As System.EventArgs) Handles TSBCargo.Click
        frmPrincipal.TPPessoa.Controls.Clear()
        Dim uc = New CargosUC()
        uc.Dock = DockStyle.Fill
        frmPrincipal.TPPessoa.Controls.Add(uc)
    End Sub
#End Region

#Region "Cliente"
    Private Sub TSBCLiente_Click(sender As System.Object, e As System.EventArgs) Handles TSBCLiente.Click
        frmPrincipal.TPPessoa.Controls.Clear()
        Dim uc = New ClientesUC()
        uc.Dock = DockStyle.Fill
        frmPrincipal.TPPessoa.Controls.Add(uc)
    End Sub
#End Region

#Region "Fornecedor"
    Private Sub TSBFornecedor_Click(sender As System.Object, e As System.EventArgs) Handles TSBFornecedor.Click
        frmPrincipal.TPPessoa.Controls.Clear()
        Dim uc = New FornecedorUC
        uc.Dock = DockStyle.Fill
        frmPrincipal.TPPessoa.Controls.Add(uc)
    End Sub
#End Region

#Region "Funcionário"
    Private Sub TSBFuncionario_Click(sender As System.Object, e As System.EventArgs) Handles TSBFuncionario.Click
        frmPrincipal.TPPessoa.Controls.Clear()
        Dim uc = New FuncionarioUC
        uc.Dock = DockStyle.Fill
        frmPrincipal.TPPessoa.Controls.Add(uc)
    End Sub
#End Region

#Region "Usuário"
    Private Sub TSBUsuario_Click(sender As System.Object, e As System.EventArgs) Handles TSBUsuario.Click
        frmPrincipal.TPPessoa.Controls.Clear()
        Dim uc = New UsuarioUC
        uc.Dock = DockStyle.Fill
        uc.codigo = frmPrincipal.objusuario.Codigo
        frmPrincipal.TPPessoa.Controls.Add(uc)
    End Sub
#End Region

#Region "Prestadores"
    Private Sub TSBPrestadores_Click(sender As System.Object, e As System.EventArgs) Handles TSBPrestadores.Click
        frmPrincipal.TPPessoa.Controls.Clear()
        Dim uc = New PrestadoresUC
        uc.Dock = DockStyle.Fill
        frmPrincipal.TPPessoa.Controls.Add(uc)
    End Sub
#End Region

#Region "Permissao"
    Private Sub TSBPermissao_Click(sender As System.Object, e As System.EventArgs) Handles TSBPermissao.Click
        frmPrincipal.TPPessoa.Controls.Clear()
        Dim uc = New PermissaoUC
        uc.Dock = DockStyle.Fill
        frmPrincipal.TPPessoa.Controls.Add(uc)
    End Sub
#End Region

End Class